home *** CD-ROM | disk | FTP | other *** search
/ Visual Basic Source Code / Visual Basic Source Code.iso / vbsource / webbro1a / frmsampl.frm next >
Text File  |  1999-07-27  |  4KB  |  138 lines
  1. VERSION 5.00
  2. Object = "{EAB22AC0-30C1-11CF-A7EB-0000C05BAE0B}#1.1#0"; "SHDOCVW.DLL"
  3. Begin VB.Form frmSample 
  4.    Caption         =   "Form1"
  5.    ClientHeight    =   3420
  6.    ClientLeft      =   60
  7.    ClientTop       =   345
  8.    ClientWidth     =   4530
  9.    LinkTopic       =   "Form1"
  10.    ScaleHeight     =   3420
  11.    ScaleWidth      =   4530
  12.    StartUpPosition =   3  'Windows Default
  13.    Begin SHDocVwCtl.WebBrowser WebBrowser1 
  14.       Height          =   3315
  15.       Left            =   60
  16.       TabIndex        =   0
  17.       Top             =   60
  18.       Width           =   4395
  19.       ExtentX         =   7752
  20.       ExtentY         =   5847
  21.       ViewMode        =   0
  22.       Offline         =   0
  23.       Silent          =   0
  24.       RegisterAsBrowser=   0
  25.       RegisterAsDropTarget=   1
  26.       AutoArrange     =   0   'False
  27.       NoClientEdge    =   0   'False
  28.       AlignLeft       =   0   'False
  29.       ViewID          =   "{0057D0E0-3573-11CF-AE69-08002B2E1262}"
  30.       Location        =   ""
  31.    End
  32. End
  33. Attribute VB_Name = "frmSample"
  34. Attribute VB_GlobalNameSpace = False
  35. Attribute VB_Creatable = False
  36. Attribute VB_PredeclaredId = True
  37. Attribute VB_Exposed = False
  38. Option Explicit
  39.  
  40. Implements IDocHostUIHandler
  41.  
  42. Private Const CONTEXT_MENU_CONTROL = 2&
  43. Private Const E_NOTIMPL = &H80004001
  44.  
  45. Private Sub Form_Load()
  46.     WebBrowser1.Navigate "about:<html><title></title><body><h2>" & _
  47.                          "Simple HTML document</h2>" & _
  48.                          "If you right click, the context menu will not appear. " & _
  49.                          "See IDocHostUIHandler_ShowContextMenu." & _
  50.                          "</body></html>"
  51. End Sub
  52.  
  53.  
  54.  
  55.  
  56. Private Sub IDocHostUIHandler_EnableModeless(ByVal fEnable As Long)
  57.     Err.Raise E_NOTIMPL
  58. End Sub
  59.  
  60. Private Sub IDocHostUIHandler_FilterDataObject(ByVal pDO As WebBrowserInterfaces.IDataObject, ppDORet As WebBrowserInterfaces.IDataObject)
  61.     Err.Raise E_NOTIMPL
  62. End Sub
  63.  
  64.  
  65. Private Sub IDocHostUIHandler_GetDropTarget(ByVal pDropTarget As WebBrowserInterfaces.IDropTarget, ppDropTarget As WebBrowserInterfaces.IDropTarget)
  66.     Err.Raise E_NOTIMPL
  67. End Sub
  68.  
  69.  
  70. Private Sub IDocHostUIHandler_GetExternal(ppDispatch As Object)
  71.     Err.Raise E_NOTIMPL
  72. End Sub
  73.  
  74.  
  75. Private Sub IDocHostUIHandler_GetHostInfo(pInfo As WebBrowserInterfaces.DOCHOSTUIINFO)
  76.     Err.Raise E_NOTIMPL
  77. End Sub
  78.  
  79.  
  80. Private Sub IDocHostUIHandler_GetOptionKeyPath(pchKey As String, ByVal dw As Long)
  81.     Err.Raise E_NOTIMPL
  82. End Sub
  83.  
  84.  
  85. Private Sub IDocHostUIHandler_HideUI()
  86.     Err.Raise E_NOTIMPL
  87. End Sub
  88.  
  89.  
  90. Private Sub IDocHostUIHandler_OnDocWindowActivate(ByVal fActivate As Long)
  91.     Err.Raise E_NOTIMPL
  92. End Sub
  93.  
  94.  
  95. Private Sub IDocHostUIHandler_OnFrameWindowActivate(ByVal fActivate As Long)
  96.     Err.Raise E_NOTIMPL
  97. End Sub
  98.  
  99.  
  100. Private Sub IDocHostUIHandler_ResizeBorder(prcBorder As WebBrowserInterfaces.tagRECT, ByVal pUIWindow As WebBrowserInterfaces.IOleInPlaceUIWindow, ByVal fRameWindow As Long)
  101.     Err.Raise E_NOTIMPL
  102. End Sub
  103.  
  104.  
  105. Private Sub IDocHostUIHandler_ShowContextMenu(ByVal dwID As Long, ppt As WebBrowserInterfaces.tagPOINT, ByVal pcmdtReserved As Long, ByVal pdispReserved As Object)
  106.     If dwID = CONTEXT_MENU_CONTROL Then _
  107.         Err.Raise E_NOTIMPL
  108. End Sub
  109.  
  110. Private Sub IDocHostUIHandler_ShowUI(ByVal dwID As Long, ByVal pActiveObject As WebBrowserInterfaces.IOleInPlaceActiveObject, ByVal pCommandTarget As WebBrowserInterfaces.IOleCommandTarget, ByVal pFrame As WebBrowserInterfaces.IOleInPlaceFrame, ByVal pDoc As WebBrowserInterfaces.IOleInPlaceUIWindow)
  111.     Err.Raise E_NOTIMPL
  112. End Sub
  113.  
  114. Private Sub IDocHostUIHandler_TranslateAccelerator(lpmsg As WebBrowserInterfaces.tagMSG, pguidCmdGroup As WebBrowserInterfaces.GUID, ByVal nCmdID As Long)
  115.     Err.Raise E_NOTIMPL
  116. End Sub
  117.  
  118.  
  119. Private Sub IDocHostUIHandler_TranslateUrl(ByVal dwTranslate As Long, ByVal pchURLIn As String, ppchURLOut As String)
  120.     Err.Raise E_NOTIMPL
  121. End Sub
  122.  
  123.  
  124. Private Sub IDocHostUIHandler_UpdateUI()
  125.     Err.Raise E_NOTIMPL
  126. End Sub
  127.  
  128.  
  129. Private Sub WebBrowser1_DocumentComplete(ByVal pDisp As Object, URL As Variant)
  130. Dim custDoc As ICustomDoc
  131.     
  132.     ' Setting UIHandler
  133.     Set custDoc = WebBrowser1.Document
  134.     custDoc.SetUIHandler Me
  135.  
  136. End Sub
  137.  
  138.